home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_B.d64 / cohan's land (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  27KB  |  713 lines
  1. 0 rem *********************************
  2. 2 rem *    c o h a n ' s   l a n d    *
  3. 4 rem *      copyright 1984 by        *
  4. 5 rem * supermike's fantasy products  *
  5. 7 rem *********************************
  6. 8 poke53280,0:poke53281,0:printchr$(14):sys65499:print"[147][158]
  7. 9 zn[178]1:ro[178]10000[170]zn[172]100
  8. 11 [131]76,24,1,177,251,145,251,200,208,249,230,252,202,208,244,96,120,160
  9. 12 [131]0,169,160,132,251,133,252,162,32,32,11,1,169,224,132,251,133,252
  10. 13 [131]162,32,32,11,1,169,53,133,1,88,96:[129]i[178]264[164]310:[135]a:[151]i,a:[130]
  11. 15 [158]264:a[178]710:[129]i[178]a[164]a[170]20:[135]x:[151]i,x:[130]
  12. 16 [131]208,3,76,29,168,32,192,2,32,19,166,56,165,95,233,1,164,96,76,36,168
  13. 18 [151]40996,197:[151]40997,2:[151]1,54:a[178]43168:[129]i[178]a[164]a[170]2:[135]x:[151]i,x:[130]
  14. 20 a[178]704:[129]i[178]a[164]a[170]5:[135]x:[151]i,x:[130]:[131]32,192,2,32,138,173,76,247,183
  15. 25 [141]51000
  16. 30 [153]"load";[199](142)
  17. 36 [153],"sys(NULL)tab( (NULL)(NULL)+andsqr (NULL)(NULL)+(NULL) fn(NULL) (NULL)tab(
  18. 37 print,"[204][175][167][175][186][170] [170] [207][208][170] [205][165]  [183][208]
  19. 38 [153],"                 tab(tab(
  20. 39 print,"    [180]  [206][208][170][205] [180][207][205]
  21. 40 [153],"    (NULL)and (NULL)(NULL)+ (NULL)sgn(NULL)(NULL)
  22. 42 print,"[150][157]ein abenteuerspiel von
  23. 43 [153],"def  michael nickles":[151]198,0:[146]198,1
  24. 50 [153]"load";[199](14)
  25. 55 [143]ge$(14)="str$rahtgitter":ge(15)=-1:ma=0:ge(10)=-1:ge(16)=-1:ge(6)=-1
  26. 56 [143]   ge(1)=-1:zb=10
  27. 57 [143]fori=1togz:ge(i)=-1:next
  28. 60 [137]1040
  29. 1000 [143] actionmodul -------------------
  30. 1001 [139]ri[167]1015
  31. 1002 [141]50000
  32. 1010 [139]ri[178]0[167]2000
  33. 1015 [139]ri(ri)[178]0[167][153]"(NULL)ein (NULL)eg in diese (NULL)ichtung !":ri[178]0:[137]2000
  34. 1016 ve[178]0:om[178]0:ob[178]0:pe[178]0:pm[178]0:[143] ge=0
  35. 1020 ro[178]10000[170]100[172]ri(ri):zn[178]ri(ri):ri[178]0
  36. 1040 [140]ro:[129]i[178]1[164]10:[135]ri(i):[130]
  37. 1041 [139]pa(7)[175]zn[178]37[167]ri(2)[178]38
  38. 1050 [153]"loadsys";:[141] room
  39. 1100 [143] ***** sie sehen
  40. 1700 se$[178]"":ic[178]0:[129]i[178]1[164]pz:[139]pe(i)[178]zn[167][153]pe$(i)". ";:ic[178]1
  41. 1710 [130]:[139]ic[167][153]
  42. 1820 [129]i[178]1[164]oz:[139]oo(i)[178]zn[167]se$[178]se$[170]o$(i)[170]". ":ic[178]1
  43. 1822 [130]
  44. 1830 [129]i[178]1[164]gz:[139]ge(i)[178]zn[167]se$[178]se$[170]ge$(i)[170]". ":ic[178]1
  45. 1831 [139]ge(i)[178][171]2[175]zn[178]1[175]tu(1)[178]0[167]se$[178]se$[170]ge$(i)[170]". ":ic[178]1
  46. 1832 [139]ge(i)[178][171]3[175]zn[178]5[175]tu(3)[178]0[167]se$[178]se$[170]ge$(i)[170]". ":ic[178]1
  47. 1833 [139]ge(i)[178][171]4[175]zn[178]43[175]tu(4)[178]0[167]se$[178]se$[170]ge$(i)[170]". ":ic[178]1
  48. 1834 [130]i
  49. 1835 [139]se$[178]""[167]1900
  50. 1840 [139][195](se$)[179]41[167][153]se$:[137]1900
  51. 1850 i$[178][200](se$,39)
  52. 1860 im[178]0:[129]i[178]1[164][195](i$)
  53. 1865 :[139][202](i$,i,1)[178]" "[167]im[178]i
  54. 1868 [130]i
  55. 1870 i$[178][200](i$,im):[153]i$
  56. 1880 se$[178][201](se$,[195](se$)[171]im)
  57. 1890 [137]1840
  58. 1900 [153]"(NULL)oegliche (NULL)ichtungen : ";
  59. 1910 ic[178]0:[129]i[178]1[164]10:[139]ri(i)[167][153]ri$(i)",";:ic[178]1
  60. 1920 [130]:[139]ic[178]0[167][153]"keine ";
  61. 1930 [153]"cmd "
  62. 2000 [143] reagieren auf befehle ---------
  63. 2005 [143] fehlermeldungen **************
  64. 2010 [139]ob[175]om[178]0[167][153]"str$as geht hier nicht .... noch nicht !"
  65. 2015 [139]pe[175]pm[178]0[167][153]"right$ch sehe diese (NULL)erson hier nicht !"
  66. 2019 [139]ve[178]16[167]2100
  67. 2020 [139]ve[179][177]5[175]ve[179][177]8[175]g1[175]gm[178]0[175]g1[179][177]12[167][153]"right$ch habe das nicht !"
  68. 2100 [143] einwort-befehle **************
  69. 2105 [139]ve[178]3[175]ob[178]0[175]gm[178]0[167]ve[178]0:[137]1050:[143] look
  70. 2110 [139]ve[179][177]12[167]2130:[143] inventur
  71. 2111 se$[178]"right$ch habe: ":ic[178]0:[129]i[178]1[164]gz:[139]ge(i)[178][171]1[167]se$[178]se$[170]ge$(i)[170]", ":ic[178]1
  72. 2112 [130]i:[139]ic[178]0[167]se$[178]se$[170]" nichts. "
  73. 2113 se$[178][200](se$,[195](se$)[171]1)
  74. 2116 [139][195](se$)[179]41[167][153]se$:[137]2130
  75. 2117 i$[178][200](se$,39)
  76. 2118 im[178]0:[129]i[178]1[164][195](i$)
  77. 2119 :[139][202](i$,i,1)[178]" "[167]im[178]i
  78. 2120 [130]i
  79. 2121 i$[178][200](i$,im):[153]i$
  80. 2122 se$[178][201](se$,[195](se$)[171]im)
  81. 2123 [137]2116
  82. 2130 [139]ve[178]19[167][153]"(NULL)eit vergeht......."
  83. 2200 [143] nimm/verlier rout. ***********
  84. 2205 [139]ve[179][177]5[175]ve[179][177]8[176]g1[178]0[176]ob[167]2237
  85. 2220 [139]ve[178]5[175]ge(g1)[178][171]1[167][153]"right$ch habe das bereits !":[137]2300
  86. 2222 [139]ve[178]8[175]ge(g1)[179][177][171]1[167][153]"right$ch habe das nicht !"
  87. 2229 [139]zn[178]27[175]ve[178]5[175]ge(5)[178][171]4[167]ge(5)[178][171]1:[153]"(NULL)k.":[137]2300
  88. 2230 [139]ve[178]5[175]ge(g1)[178]zn[167][153]"(NULL)k.":ge(g1)[178][171]1:[137]2250
  89. 2231 [139]ve[178]8[175]ge(g1)[178][171]1[167][153]"(NULL)k.":ge(g1)[178]zn
  90. 2232 [139]ve[178]5[175]ge(g1)[178][171]2[175]tu(1)[178]0[167][153]"(NULL)k.":ge(g1)[178][171]1:[137]2250
  91. 2233 [139]ve[178]5[175]ge(g1)[178][171]3[175]tu(3)[178]0[167][153]"(NULL)k.":ge(g1)[178][171]1:[137]2250
  92. 2234 [139]ve[178]5[175]ge(g1)[178][171]4[175]tu(4)[178]0[167][153]"(NULL)k.":ge(g1)[178][171]1:[137]2250
  93. 2237 [139]g1[175]ve[178]5[175]ge(g1)[179][177]zn[167][153]"right$ch sehe das hier nicht !"
  94. 2238 [139]ve[178]5[175]g1[178]0[175]ob[179][177]0[167][153]"str$azu bin ich nicht stark genug !"
  95. 2250 [139]g1[178]15[175]fs[178]1[167]fs[178]0
  96. 2252 [139]g1[178]14[175]fa[170]fs[178]2[167]2625
  97. 2254 [139]ve[178]5[175]g1[178]16[167][153]"right$ch ziehe den (NULL)chutzanzug am besten so- fort an !"
  98. 2300 [143] toete ************************
  99. 2310 [139]ve[179][177]20[167]2400
  100. 2315 [139]g1[178]0[167][153]"(NULL)ie ? str$och nicht mit meinen blossen     left$aenden !":[137]2400
  101. 2320 [139]gm[178]3[167][153]"right$ch greife mit dem (NULL)aebel an !"
  102. 2322 [139]gm[178]10[167][153]"right$ch greife mit der atnxt an !"
  103. 2324 [139]gm[178]6[175]mu[178]0[167][153]"right$ch habe keine (NULL)unition mehr !":ge(7)[178]0:[137]2400
  104. 2326 [139]gm[178]6[175]mu[167][153]"right$ch schiesse mit der (NULL)istole !":mu[178]mu[171]1
  105. 2330 [139]pa(3)[179]6[167]2340
  106. 2332 [139]zn[179][177]71[176]gm[179][177]6[167]2340
  107. 2334 [153]"str$er (NULL)oewe bricht tot zusammen.":pe$(3)[178]"(NULL)oter (NULL)oewe":pa(3)[178][171]1
  108. 2335 pe(3)[178]10:sc[178]sc[170]7.5
  109. 2340 [139]gm[179][177]6[175]gm[179][177]3[175]gm[179][177]10[176]pa(4)[179]1[167]2350
  110. 2342 [153]"str$as (NULL)rokodil stuerzt blutend ins (NULL)asser.":pa(4)[178][171]1:sc[178]sc[170]3.5
  111. 2350 [139]zn[179][177]61[176]om[179][177]39[176]gm[179][177]6[167]2360
  112. 2352 i[178][181](100[172][187](1))[170]1
  113. 2354 [139]i[177]50[176]br[178]2[167][153]"str$ie (NULL)ugel verfehlt den str$ruckknopf knapp.":br[178][171]1
  114. 2356 [139]i[179][178]50[175]br[179][177]2[167][153]"str$ie (NULL)ugel trifft den str$ruckknopf exakt !":br[178]1
  115. 2360 :
  116. 2400 [143] baue floss ******************
  117. 2410 [139]ve[179][177]25[176]g1[179][177]12[167]2500
  118. 2420 [139]ge(11)[179][177][171]1[167][153]"right$ch habe kein left$olz !":[137]2500
  119. 2430 [153]"(NULL)k.":ge(11)[178]0:ge(12)[178][171]1
  120. 2500 [139]ve[179][177]31[175]ve[179][177]42[167]2600: [143] verbinde ******************
  121. 2505 [139]g1[170]g2[179][177]29[167]2600
  122. 2510 [139]ge(14)[179][177][171]1[167][153]"right$ch habe das str$rahtgitter nicht !":[137]2600
  123. 2520 [139]ge(15)[179][177][171]1[167]2600
  124. 2530 [139]fa[178]1[167][153]"str$as habe ich bereits.":[137]2600
  125. 2535 [153]"(NULL)k.":fa[178]1:[143] iffs=1then2625
  126. 2600 [139]ve[179][177]44[175]ve[179][177]42[167]2700:[143] stecke **************
  127. 2610 [139]om[179][177]26[167]2700
  128. 2620 [139]fs[178]0[167][153]"(NULL)k.":ge(15)[178]zn:fs[178]1
  129. 2622 [139]fa[179][177]1[176]ge(14)[179][177][171]1[167]2630
  130. 2625 [153]"str$as str$rahtgitter glueht auf und verabrei-cht mir einen vallektroschock";
  131. 2626 [153]" von mehrerentausend (NULL)olt.":[137]8000
  132. 2630 [139]fs[178]0[175]ge(15)[178][171]1[167][153]"(NULL)k.":ge(15)[178]zn:fs[178]1
  133. 2700 [143] spezial action scenario
  134. 2710 [139]zn[178]43[176]zn[178]51[167][139]ma[179][177]0[167]6145
  135. 2715 [139]ge(18)[178][171]1[175]zb[178]11[167][153]"str$ie (NULL)eitbombe beginnt ploetzlich zu     ticken !"
  136. 2716 [139]zb[179]11[175]ge(18)[178][171]1[167][153]"str$ie (NULL)eitbombe tickt immer schneller !"
  137. 2720 [139]zb[167]zb[178]zb[171]1:[139]zb[178]0[167][153]"str$ie (NULL)eitbombe explodiert.":[137]8000
  138. 2730 i[178]pa(9): [143] strahlenverseuchung
  139. 2735 [139]i[178]1[167][153]"(NULL)ir wird ganz komisch von dem violetten (NULL)icht !"
  140. 2740 [139]i[167]pa(9)[178]pa(9)[170]1:i[178]pa(9)
  141. 2745 [139]i[178]5[167][153]"right$ch werde ploetzlich ganz schwach !"
  142. 2746 [139]i[178]8[167][153]"right$ch werde immer schwaecher !"
  143. 2747 [139]i[178]10[167][153]"(NULL)eine (NULL)raefte verlassen mich .....":[137]8000
  144. 2800 [139]ve[178]28[175]gm[178]1[167][153]"right$ch bin kein (NULL)chiffsnavigator !"
  145. 2810 [139]ve[179][177]37[176]gm[179][177]8[176]ge$(8)[178]"chr$lasscherben"[167]2820
  146. 2815 [153]"str$ie asclasche zerspringt in chr$lasscherben. valine (NULL)eekarte faellt auf ";
  147. 2816 [153]"den peekoden.":ge$(8)[178]"chr$lasscherben":ge(8)[178]zn:ge(1)[178]zn:sc[178]sc[170]2.5
  148. 2820 [139]ve[179][177]49[167]2830
  149. 2822 [139]ge(2)[179][177][171]1[175]ge(4)[179][177][171]1[167][153]"right$ch habe keinen left$unger.":[137]2830
  150. 2824 [153]"(NULL)k.":ge(2)[178]0:ge(4)[178]0:sc[178]sc[170]2.5
  151. 2830 :
  152. 4000 [143] hilfe ***********************
  153. 4010 [139]ve[179][177]30[167]5000
  154. 4999 [143]  gosub61020
  155. 5000 [143] u n t e r s u c h e -----------
  156. 5001 [139]ve[179][177]3[176]om[178]0[175]gm[178]0[167]5999
  157. 5010 ic[178]0:[139]om[178]7[167][153]"str$ie (NULL)auer ist unueberwindbar hoch.":ic[178]1
  158. 5015 [139]om[178]14[175]oo(16)[179][177]22[167]sc[178]sc[170]6.5
  159. 5020 [139]om[178]14[167][153]"valine (NULL)chrift ist in die (NULL)and geritzt.":oo(16)[178]22:ic[178]1
  160. 5030 [139]om[179][177]17[167]5035
  161. 5031 [153]"str$ie rechte left$and des (NULL)keletts umklammert einen spitzen (NULL)reidestein."
  162. 5032 ic[178]1:oo(15)[178]22
  163. 5035 [139]om[179][177]20[167]5037
  164. 5036 [153]"right$n einem (NULL)ropfstein ist eingeritzt :    (NULL)(NULL)(NULL)val(NULL)(NULL)val(NULL)val(NULL)closewar hier !":ic[178]1
  165. 5037 [139]om[178]24[176]om[178]1[167]ve[178]0:[137]1050
  166. 5040 [139]gm[178]7[167][153]"right$ch habe noch";mu;"(NULL)chuss !":ic[178]1
  167. 5050 [139]gm[179][177]15[167]5055
  168. 5051 [153]"str$as (NULL)abel ist ca 50m lang. atnm einen valndehat es einen (NULL)tecker, am ";
  169. 5052 [153]"anderen valnde   ist es blank."
  170. 5053 ic[178]1
  171. 5055 [139]om[179][177]37[176]ge(17)[179][177]0[167]5060
  172. 5056 [153]"str$er (NULL)ote hat einen (NULL)chluessel und eine  aktivierte (NULL)valright$(NULL)peek(NULL)(NULL)peekval ";
  173. 5057 [153]"bei sich !":ge(17)[178]zn:ge(18)[178]zn:ic[178]1:zb[178]50
  174. 5060 [139]gm[179][177]18[167]5065
  175. 5062 [153]"atnuf der (NULL)eitbombe ist ein (NULL)aehler ange- bracht der momentan den ";
  176. 5063 [153]"(NULL)ert";zb;"hat !":ic[178]1
  177. 5065 [139]om[179][177]43[167]5070
  178. 5066 [153]"atnm peekoden des peekrunnens strahlt ein helles(NULL)icht-str$ie (NULL)(NULL)val(NULL)(NULL)valclosestr$val(NULL)close(NULL)atnlenleft$(NULL) !"
  179. 5067 ic[178]1
  180. 5070 [139]gm[178]8[167][153]"right$n der asclasche ist eine (NULL)chriftrolle.":ic[178]1
  181. 5075 [139]gm[178]16[167][153]"str$er atnnzug schuezt vor radioaktiver      (NULL)trahlung.":ic[178]1
  182. 5500 [139]ic[178]0[167][153]"right$ch entdecke nichts besonderes."
  183. 5999 :
  184. 6000 [143] nichtspielerpersonen ----------
  185. 6010 [143] ********** loewe
  186. 6015 [139]zn[178]71[175]pa(3)[179][177][171]1[167]6035
  187. 6020 [139]zn[179]6[176]zn[177]13[176]pa(3)[178][171]1[176][181](10[172][187](1))[170]1[179]6[176]pa(4)[167]6100
  188. 6035 pa(3)[178]pa(3)[170]1:[139]pa(3)[179]6[167][153]"right$m chr$ebuesch raschelt etwas !":[143]  61010
  189. 6050 [139]pa(3)[178]6[167][153]"valin riessiger (NULL)oewe springt aus dem chr$e- buesch hervor !"
  190. 6051 [139]pa(3)[178]6[167]pe(3)[178]zn
  191. 6055 [139]pa(3)[178]7[175]zn[178]71[167][153]"str$er (NULL)oewe springt am peekaumstamm hoch !"
  192. 6060 [139]pa(3)[178]8[167][153]"str$er (NULL)oewe faellt mich an !":[137]8000
  193. 6100 [143] ********** roboter
  194. 6105 [139]zn[179]38[176]ma[178]0[167]6200
  195. 6110 mw[178]mw[170]1:ma[178]ma(mw):[139]ma[178][171]1[167]mw[178]0:[137]6110
  196. 6130 ic[178]0:[129]i[178]1[164]10:[139]ri(i)[178]ma[167]ic[178]1
  197. 6135 [130]:[139]ic[167][153]"right$ch hoere (NULL)chritte in der (NULL)aehe !"
  198. 6136 [139]ma[179][177]ge(14)[176]fa[170]fs[179][177]2[167]6140
  199. 6137 ma[178]0:pe(4)[178]ge(14):sc[178]sc[170]7
  200. 6138 [139]pe(4)[179][177]zn[167][153]"right$ch hoere ein lautes (NULL)rachen !":[137]6140
  201. 6139 [153]"str$er (NULL)oboter laueft ueber das str$rahtgitterund verschmort !"
  202. 6140 [139]ma[179][177]zn[167]6150
  203. 6145 [153]"valin riessiger (NULL)oboter erscheint !"
  204. 6146 [153]"atnus den atnugen des (NULL)oboters schiesst ein (NULL)ichtstrahl auf mich ....."
  205. 6147 [153]"right$ch werde muede ..... sehr muede ....."
  206. 6148 ri(1)[178]39:ri[178]1:pa(8)[178]1:[151]198,0:[146]198,1
  207. 6150 :
  208. 6200 [141] room[170]20:[137]1000
  209. 7000 [143] verloren
  210. 8000 [153]"right$ch bin tot."
  211. 8010 [153]"(NULL)ie haben";sc;"% dieses atndventures geloest."
  212. 8020 [129]i[178]1[164]3000:[130]:[151]198,0:[146]198,1:[138]
  213. 10000 [143] die landkarte ----------------
  214. 10100 [131],,,,,,,,,,,:[153]"chr$emuetlich eingerichtete (NULL)ohnstube."
  215. 10102 [153]"right$n einem offenen (NULL)amin knistert ein be- hagliches asceuer."
  216. 10109 [139]tu(2)[178]0[167]ri(1)[178]2
  217. 10120 [139]ve[178]1[175]om[178]1[167][153]"(NULL)k.":tu(1)[178]0
  218. 10125 [139]ve[178]2[175]om[178]1[167][153]"(NULL)k.":tu(1)[178]1
  219. 10127 [139]ve[178]1[175]om[178]2[176]om[178]5[167][153]"(NULL)k.":tu(2)[178]0:ri(1)[178]2
  220. 10128 [139]ve[178]2[175]om[178]2[176]om[178]5[167][153]"(NULL)k.":tu(2)[178]1:ri(1)[178]0
  221. 10129 [139]ve[179][177]8[176]om[179][177]1[167]10140
  222. 10130 [139]tu(1)[167][153]"str$er (NULL)chrank ist geschlossen !":[137]10140
  223. 10131 [139]ge(g1)[178][171]1[167][153]"(NULL)k.":ge(g1)[178][171]2:[143] goto
  224. 10140 [139]ve[178]8[175]om[178]10[175]gm[178]1[167][153]"str$ie (NULL)eekarte verbrennt.":ge(1)[178]0
  225. 10150 [142]
  226. 10200 [131]3,,,,,,,,,,,:[153]"peekreite (NULL)trasse die zum left$afen fuehrt."
  227. 10203 [153]"(NULL)r peekolings left$aus.
  228. 10205 iftu(2)=0thenri(2)=1
  229. 10220 ifve=1andom=5thenprint"[207]k.":tu(2)=0:ri(2)=1
  230. 10221 ifve=2andom=5thenprint"[207]k.":tu(2)=1:ri(2)=0
  231. 10230 return
  232. 10300 data,2,,,,,,,,:print"[193]m grossen [200]afen. [197]in grosses [200]andels-  schiff, ";
  233. 10305 print"die '[209]ueen [205]ary' wird gerade    beladen."
  234. 10320 ifve=13andob=3thenri(1)=4:ri=1:ti$="000000"
  235. 10330 return
  236. 10400 data,,,,,,,,,,:print"[193]uf der [209]ueen [205]ary."
  237. 10410 ifpa(0)then10419
  238. 10411 print"[203]aeptan [199]raubart sagt : '[200]allo, willkom-men an [194]ord [205]r [194]olings ! ";
  239. 10412 print"[206]avigator an   [196]eck, hievt die [211]egel, holt den [193]nker   ein!'"
  240. 10413 pa(0)=1
  241. 10419 return
  242. 10420 ifve=13andob=3thenri(1)=3:ri=1
  243. 10424 pa(0)=pa(0)+1:ifpa(0)>3thenpa(0)=3
  244. 10425 ifpa(0)=3thenprint"[158][196]as [211]chiff befindet sich auf hoher [211]ee."
  245. 10426 ifti$>"000300"then10440
  246. 10427 ifge(1)<>-1then10430
  247. 10428 ifve+pe+g1=18thenprint"[196]er [206]avigator nimmt die [203]arte.":pa(1)=1:ge(1)=0
  248. 10429 ifve+pe+g1=18thensc=sc+2.5
  249. 10430 ifpa(1)thenpa(1)=pa(1)+1
  250. 10431 ifpa(1)=4thenprint"[197]in [211]chiffsjunge ruft '[204]and in [211]icht !'.":ti$="000300"
  251. 10432 ifti$>"000030"andpa(2)=0thenprint"[197]in schwerer [211]turm bricht aus !":pa(2)=1
  252. 10433 return
  253. 10440 print"[197]in starker [210]uck zuckt ploetzlich durch das [211]chiff !"
  254. 10441 fori=1to4000:next
  255. 10445 print"[197]in [205]atrose ruft '[215]ir sind auf ein [210]iff aufgefahren und haben ein ";
  256. 10446 print"[204]eck......wir sinken....."
  257. 10450 poke198,0:wait198,1
  258. 10460 ifpa(1)=0thenprint"[201]ch ertrinke....":goto8000
  259. 10470 ri(1)=5:ri=1:return
  260. 10500 data,,,,,,6,,,:print"[193]m [201]nselstrand."
  261. 10502 print"[201]m [215]asser in [211]trandnaehe treiben einige [211]chiffswrackteile.":return
  262. 10510 return
  263. 10520 ifve<>19oroo(4)thenifpa(3)<>5then10523
  264. 10521 print"[197]ine riessige [200]olztruhe wird ploetzlich an den [211]trand getrieben.
  265. 10522 oo(4)[178]5:pa(3)[178]6
  266. 10523 pa(3)[178]pa(3)[170]1
  267. 10530 [139]ve[178]1[175]om[178]4[167][153]"(NULL)k.":tu(3)[178]0:o$(4)[178]"(NULL)ffene (NULL)ruhe"
  268. 10531 [139]ve[178]2[175]om[178]4[167][153]"(NULL)k.":tu(3)[178]1:o$(4)[178]"chr$rosse (NULL)eemannstruhe"
  269. 10535 [139]ve[178]8[175]om[178]4[175]tu(3)[178]0[175]ge(g1)[178][171]1[167][153]"(NULL)k.":ge(g1)[178][171]3
  270. 10540 [142]
  271. 10600 [131],13,,,,5,12,,,:[153]"right$n dichtem str$schungel."
  272. 10620 [142]
  273. 10700 [131],10,,,8,,9,,,:[153]"right$n dichtem str$schungel."
  274. 10720 [142]
  275. 10800 [131],9,,,,,,7,,:[153]"right$n dichtem str$schungel."
  276. 10820 [139]ve[178]23[175]om[178]7[167][153]"str$ie (NULL)auer ist viel zu hoch dazu !"
  277. 10825 [139]ve[178]8[175]gm[178]5[175]om[178]7[167][153]"str$as (NULL)eil ist leider zu kurz !"
  278. 10830 [142]
  279. 10900 [131]8,8,,10,,7,,,,:[153]"right$n dichtem str$schungel."
  280. 10920 [142]
  281. 11000 [131],11,9,,,,,11,,:[153]"(NULL)ffene (NULL)ichtung im str$schungel.":[142]
  282. 11020 [139]ve[178]23[175]om[178]6[167]ri(1)[178]71:ri[178]1
  283. 11030 [142]
  284. 11100 [131]10,,,,,12,,,,:[153]"right$n dichtem str$schungel."
  285. 11120 [139]ve[178]26[167][153]"str$ie (NULL)rokodile lassen das nicht zu !"
  286. 11122 [139]ve[179][177]27[167]11134
  287. 11124 [139]ge(12)[179][177][171]1[167][153]"(NULL)ie denn ?":[137]11150
  288. 11130 [139]pa(4)[178]0[175]ge(12)[178][171]1[167]pa(4)[178]1:[153]"(NULL)k.right$ch befinde mich auf dem ascluss."
  289. 11132 [142]
  290. 11134 [139]pa(4)[179][177]1[167]11138
  291. 11135 [153]"(NULL)ahlreiche (NULL)rokodile kommen herbeige-   schwommen !"
  292. 11136 [153]"valin besonders wildes (NULL)rokodil klettert  auf das kleine ascloss !"
  293. 11137 pa(4)[178]2:[142]
  294. 11138 [139]pa(4)[178]2[167][153]"str$as (NULL)rokodil kommt bedrohlich naeher !":pa(4)[178]3:[142]
  295. 11140 [139]pa(4)[178]3[167][153]"str$as (NULL)rokodil hat mich gefressen.":[137]8000
  296. 11150 [139]pa(4)[178][171]1[167][153]"str$ie uebrigen (NULL)rokodile fressen es."
  297. 11152 [139]pa(4)[178][171]1[167]ri(1)[178]14:ri[178]1:[153]"right$ch habe das andere (NULL)fer erreicht."
  298. 11154 [139]pa(4)[178][171]1[167][153]"str$as ascloss treibt aufclosedem ascluss davon.":ge(12)[178]0
  299. 11155 [139]pa(4)[178][171]1[167][151]198,0:[146]198,1
  300. 11160 [142]
  301. 11200 [131],,,13,10,6,11,,,:[153]"right$n dichtem str$schungel."
  302. 11205 [153]"right$n der (NULL)aehe rauscht (NULL)asser."
  303. 11220 [139]ve[179][177]24[176]om[179][177]11[176]ge(10)[179][177][171]1[176]ge(11)[179][177]0[167]11230
  304. 11225 [153]"(NULL)k.":o$(11)[178]"chr$efaellter peekaum":ge(11)[178]zn
  305. 11230 [142]
  306. 11300 [131]6,,12,,,,,,,:[153]"right$n dichtem str$schungel."
  307. 11320 [142]
  308. 11400 [131],16,,17,,,,,,:[153]"right$n dichtem str$schungel."
  309. 11420 [142]
  310. 11600 [131]14,,,17,,,,,,:[153]"right$n dichtem str$schungel"
  311. 11620 [142]
  312. 11700 [131]14,,16,,,,,18,,:[153]"right$n dichtem str$schungel am chr$ebirgsrand."
  313. 11720 [142]
  314. 11800 [131],19,,,17,,,,,:[153]"(NULL)ehr steiler chr$ebirgspfad."
  315. 11820 [142]
  316. 11900 [131]18,20,,,,,,,,:[153]"(NULL)ehr steiler chr$ebirgspfad."
  317. 11920 [142]
  318. 12000 [131]19,23,,21,,,,,,:[153]"right$m hohen chr$ebirge."
  319. 12020 [142]
  320. 12100 [131]0,24,20,,,,23,,,:[153]"right$m hohen chr$ebirge."
  321. 12120 [142]
  322. 12200 [131],25,,,,,,,,:[153]"right$n einer trockenen left$oehle."
  323. 12220 [139]ve[179][177]28[176]om[179][177]16[167]12250
  324. 12224 [153]"str$ie (NULL)chrift lautet :"
  325. 12225 [153]"right$ch bin dem chr$eheimnis der (NULL)acht auf der (NULL)pur......."
  326. 12226 [153]".. lenodewort ....close(NULL)atnleft$(NULL)len....
  327. 12230 print"[193]chtung vor den [210]obo.....
  328. 12235 [153]"....str$r. chr$(NULL)(NULL)str$(NULL)(NULL)....
  329. 12240 print"[205]ehr kann man leider nicht entziffern !"
  330. 12250 return
  331. 12300 data20,26,,,,21,25,,,:print"[201]m hohen [199]ebirge."
  332. 12320 return
  333. 12400 data21,,,,,,26,,,:print"[201]m hohen [199]ebirge."
  334. 12420 return
  335. 12500 data,,,26,,23,27,,,:print"[201]m hohen [199]ebirge."
  336. 12520 ifve=13andob=13thenri(1)=22:ri=1
  337. 12530 return
  338. 12600 data23,28,25,,,24,28,30,,:print"[201]m hohen [199]ebirge."
  339. 12620 return
  340. 12700 data,,,,,25,,,,:print"[201]m hohen [199]ebirge auf einem [198]elsplateau."
  341. 12710 print"[195]a 10 [205]eter unter mir ist ein [211]palt in  der [199]ebirgswand."
  342. 12715 ifge(5)=-4thenprint"[197]in am [210]ing befestigtes [211]eil haengt hin-ab."
  343. 12720 ifom=18andgm=5andve=31thenge(5)=-4:print"[207]k."
  344. 12725 ifve=23andge(5)<>-4thenprint"[196]ie [215]and ist zu steil !"
  345. 12730 ifve=23andge(5)=-4thenprint"[207]k.":ri(1)=31:ri=1:ge(5)=31:sc=sc+8
  346. 12740 return
  347. 12800 data,,,26,,26,,29,,:print"[201]m hohen [199]ebirge."
  348. 12820 return
  349. 12900 data,,,,29,30,,,,:print"[201]m hohen [199]ebirge."
  350. 12920 return
  351. 13000 data,,,,26,,29,,,:print"[201]m hohen [199]ebirge."
  352. 13020 return
  353. 13100 data,,,,,,,,,:print"[193]uf einem [198]elsvorsprung an einer steilen";
  354. 13110 print"[199]ebirgswand."
  355. 13120 ifve=13andom=19thenri(1)=32:ri=1
  356. 13130 return
  357. 13200 data33,,31,,,,,,,:print"[201]n einer [199]rotte."
  358. 13220 return
  359. 13300 data,33,,34,,,,,,:print"[211]chmaler [199]ang in der [199]rotte."
  360. 13320 return
  361. 13400 data36,,,35,,,,,,:print"[197]nger [196]urchgang."
  362. 13401 ifpa(5)thenprint"[196]urch [211]teine verschuetteter [193]usgang."
  363. 13405 ifpa(5)<>0then13420
  364. 13406 print"[200]inter mir bricht eine [211]teinlawine aus  und verschuettet den [193]us";
  365. 13407 print"gang zum [211]palt  gaenzlich !":pa(5)=1
  366. 13420 return
  367. 13500 data,,34,,,,,,,:print"[198]euchte [199]rotte."
  368. 13520 return
  369. 13600 data,34,,,,,,,,:print"[201]n einer [199]rotte."
  370. 13601 print"[201]n der [215]and ist eine [211]tahltuer eingelas-sen.":ifpa(6)<>0then13620
  371. 13602 print"[200]inter den [198]elsen schnellen [211]tahlgreif- arme hervor und halten mi";
  372. 13603 print"ch fest."
  373. 13604 print"[197]in kleiner [193]pparat schwebt direkt vor  mein [199]esicht.":pa(6)=1
  374. 13605 return
  375. 13620 ifpa(6)<>1then13640
  376. 13621 print"[197]ine synthetische [211]timme aus dem [193]pparatfragt :";
  377. 13622 print"'[215]ie lautet das [195]odewort ?'.":gosub50000
  378. 13625 ifve=34thenpa(6)=-1
  379. 13630 ifpa(6)=1thenprint"[197]in [204]aserstrahl schiesst aus dem [193]pparat.":goto8000
  380. 13632 pa(6)=-1:print"[196]ie synthetische [211]timme sagt : '[195]odewort[193]kzeptiert !'."
  381. 13633 print"[196]ie [199]reifarme lassen mich wieder frei,  der [193]pparat schwebt davon."
  382. 13634 print"[196]ie [211]tahltuer oeffnet sich mit einem    leisen [211]urren.":oo(22)=36
  383. 13635 o$(21)="[207]ffene [211]tahltuer"
  384. 13640 ifve=13andom=22thenri(1)=37:ri=1
  385. 13650 return
  386. 13700 data,36,,,,,,,,:print"[201]n einem [193]ufzug.":return
  387. 13720 ifve<>35orom<>23orpa(7)=3then13730
  388. 13721 print"[196]ie [211]tahltuer schliesst sich mit einem  leisen [211]urren.
  389. 13722 [139]pa(7)[178]0[167][153]"str$ie rote (NULL)aste blinkt kurz hell auf."
  390. 13723 [139]pa(7)[178]0[167][153]"(NULL)eltsam - str$ie (NULL)tahltuer oeffnet sich    wieder !"
  391. 13724 [139]pa(7)[178]0[176]pa(7)[178]3[167]13730
  392. 13725 [153]"str$er atnufzug bewegt sich leise nach unten.";:sc[178]sc[170]9.5
  393. 13726 [153]"(NULL)ach ca 2 (NULL)inuten bleibt er stehen !"
  394. 13727 [153]"str$ie (NULL)tahltuer oeffnet sich.":pa(7)[178]3:ri(2)[178]38
  395. 13730 [139]ve[178]1[175]om[178]24[167][153]"str$er (NULL)chaltkasten ist verriegelt !"
  396. 13735 [139]ve[179][177]37[176]om[179][177]24[167]13750
  397. 13737 [139]gm[178]0[167][153]"str$och nicht etwa mit meinen blossen left$aen-den !"
  398. 13739 [139]gm[178]3[167][153]"(NULL)it dem (NULL)aebel schaffe ich das nicht !"
  399. 13740 [139]gm[179][177]10[167]13750
  400. 13741 [153]"(NULL)it lautem (NULL)rachen faellt die peeklechab-  deckung des (NULL)chaltkastens";
  401. 13742 [153]" auf den peekoden.":ge(13)[178]37
  402. 13743 oo(25)[178]37:o$(24)[178]"atnufgebrochener (NULL)chaltkasten"
  403. 13750 [139]ve[178]31[176]ve[178]42[167][139]om[178]25[167][153]"(NULL)k.":pa(7)[178]1
  404. 13751 [139]pa(7)[179][177]1[167]13760
  405. 13752 [153]"str$ie rote (NULL)aste leuchtet hell auf."
  406. 13753 o$(23)[178]"left$ell leuchtende rote (NULL)aste":pa(7)[178]2
  407. 13754 o$(25)[178]"right$m (NULL)chaltkasten sind zwei miteinander kurzgeschlossene rote (NULL)abel"
  408. 13760 [142]
  409. 13800 [131],,42,,,,,,,:[153]"(NULL)chwach beleuchteter (NULL)aum."
  410. 13820 [139]ve[178]1[175]om[178]33[167][153]"right$ch kann die (NULL)tahltuer nicht oeffnen."
  411. 13825 [142]
  412. 13900 [131],,,,,,,,,:[153]"(NULL)aum mit verriegelter (NULL)tahltuer.":[142]
  413. 13920 [139]pa(8)[167][153]"(NULL)angsam verschwindet meine (NULL)uedigkeit   wieder."
  414. 13921 [139]pa(8)[167][153]"right$ch bin gefangen !":pa(8)[178]0
  415. 13925 [139]ve[179][177]13[176]om[179][177]27[167]13940
  416. 13930 [139]ge(14)[178]0[167][153]"valin str$rahtgitter verschliesst den (NULL)ugang zum (NULL)chacht."
  417. 13932 [139]ge(14)[179][177]0[167]ri(1)[178]72:ri[178]1
  418. 13940 [139]ve[179][177]37[176]om[179][177]35[167]13950
  419. 13942 [139]gm[178]0[167][153]"(NULL)omit denn ?":[137]13950
  420. 13943 [139]gm[179][177]10[167]13950
  421. 13944 [153]"(NULL)k. str$as str$rahtgitter faellt herrunter undgibt den valin";:sc[178]sc[170]5
  422. 13945 [153]"gang zum (NULL)chacht frei."
  423. 13946 oo(35)[178]0:ge(14)[178]39:ge$(14)[178]"str$rahtgitter"
  424. 13950 [142]
  425. 14000 [131],41,51,,,,,,,:[153]"(NULL)ordende eines (NULL)orridors."
  426. 14020 [142]
  427. 14100 [131]40,42,43,39,,,,,,:[153]"(NULL)anger (NULL)orridor."
  428. 14120 [142]
  429. 14200 [131]41,,44,38,,,,,,:[153]"(NULL)uedende eines (NULL)orridors."
  430. 14220 [142]
  431. 14243 [153]"(NULL)k.":ge(gm)[178][171]4
  432. 14250 [130]
  433. 14300 [131],,,41,,,,,,:[153]"atnussruestungsraum."
  434. 14320 [139]ve[178]13[175]om[178]29[167][153]"str$azu bin ich zu gross."
  435. 14322 [139]ve[177]2[176]om[179][177]29[167]14340
  436. 14325 [139]tu(4)[179][177]2[167]14330
  437. 14326 [139]ge(17)[179][177][171]1[167][153]"str$er (NULL)chrank ist verriegelt !"
  438. 14327 [139]ge(17)[179][177][171]1[167][153]"right$ch habe auch keinen (NULL)chluessel !"
  439. 14330 [139]ve[178]1[175]ge(17)[178][171]1[167][153]"(NULL)k.":tu(4)[178]0
  440. 14335 [139]ve[178]2[175]tu(4)[178]0[167][153]"(NULL)k.":tu(4)[178]2
  441. 14340 [139]ve[179][177]8[176]om[179][177]29[176]gm[178]0[167]14350
  442. 14341 [139]tu(5)[178]0[167][153]"str$er (NULL)chrank ist nicht offen.":[137]14350
  443. 14343 [153]"(NULL)k.":ge(gm)[178][171]4
  444. 14350 [142]
  445. 14400 [131],45,49,42,,,,,,:[153]"(NULL)aum."
  446. 14420 [142]
  447. 14500 [131]44,46,48,,,,,,,:[153]"(NULL)orridor."
  448. 14520 [142]
  449. 14600 [131]45,,,,,,,,,:[153]"vallektrizitaets-(NULL)abor."
  450. 14620 [142]
  451. 14700 [131],,,,,,,,48,:[153]"chr$rosse left$alle."
  452. 14710 [139]yt[167]yt[178]1:sc[178]sc[170]5
  453. 14720 [142]
  454. 14800 [131],,,45,,,,,,47:[153]"chr$ekachelter (NULL)aum."
  455. 14820 [142]
  456. 14900 [131]50,,,44,,,,,,:[153]"(NULL)leiner (NULL)orridor."
  457. 14920 [142]
  458. 15000 [131],49,,,,,,,,:[153]"chr$rosses antik eingerichtetes (NULL)ohnzimmer.";
  459. 15020 [139]ve[179][177]47[176]om[179][177]38[167][142]
  460. 15021 [139]ya[167]ya[178]1:sc[178]sc[170]5
  461. 15022 [153]"(NULL)k.":[153]"str$as (NULL)icht im (NULL)aum geht ploetzlich aus   und ein ";
  462. 15023 [153]"heller rechteckiger ascleck er-   scheint an der (NULL)immerwand."
  463. 15024 [153]"valin versteckter (NULL)rojektor beginnt zu    laufen !"
  464. 15025 [153]"atnn der (NULL)and erscheint das peekild eines    (NULL)esens das halb (NULL)ensch ";
  465. 15026 [153]"und halb (NULL)oboter ist und ein (NULL)onband beginnt zu laufen........"
  466. 15027 [151]198,0:[146]198,1
  467. 15030 [153]"left$ier spricht (NULL)rofessor lenohan !          (NULL)ein valxperiment, eine bes";
  468. 15031 [153]"sere kuenstli- che (NULL)enschheit zu schafen ist fehlge-   schlagen."
  469. 15032 [153]"(NULL)eine (NULL)oboter haben sich gegen mich ge- wendet."
  470. 15033 [153]"peekei einem (NULL)ampf wurde meine mechanische (NULL)oerperhaelfte zerstoert !"
  471. 15035 [153]"right$ch habe nur noch kurze (NULL)eit zu leben."
  472. 15036 [153]"right$ch versuche nun die (NULL)erbotene (NULL)one zu  erreichen und die (NULL)uelle ";
  473. 15037 [153]"der (NULL)acht mit  einer (NULL)eitbombe zu zerstoeren um die be-vorstehende";
  474. 15038 [153]" (NULL)oboterinvasion auf die (NULL)en-schheit zu verhindern."
  475. 15040 [153]"(NULL)oege chr$ott mir mein (NULL)erbrechen vergeben......."
  476. 15045 [151]198,0:[146]198,1
  477. 15050 [153]"str$as peekild an der (NULL)and verschwindet und   das (NULL)icht geht wieder an."
  478. 15099 [142]
  479. 15100 [131],,,40,,,,,,:[153]"(NULL)leiner weiss gekachelter (NULL)aum."
  480. 15120 [139]ve[179][177]45[175]ve[179][177]35[176]om[179][177]36[167]15130
  481. 15122 [153]"str$ie (NULL)chleusse oeffnet sich.":o$(28)[178]"(NULL)ffene (NULL)chleusse":tu(5)[178]0
  482. 15123 [139]yb[167]yb[178]1:sc[178]sc[170]2.5
  483. 15124 [153]"valine synthetische (NULL)timme ruft 'atn(NULL)atn(NULL)(NULL) !  (NULL)chleusse zur verbotenen";
  484. 15126 [153]"close(NULL)one ist akti- viert worden !'."
  485. 15130 [139]ve[178]13[175]om[178]28[175]tu(5)[178]0[167]ri(1)[178]52:ri[178]1
  486. 15140 [142]
  487. 15200 [131],51,,,53,,,,,:[153]"valnger chr$ang im right$nneren des chr$ebirges."
  488. 15205 [153]"str$er peekoden strahlt in einem seltsamen    violetten (NULL)icht."
  489. 15220 [139]ge(16)[179][177][171]1[167]pa(9)[178]1
  490. 15230 [142]
  491. 15300 [131]54,,,,,,56,52,,:[153]"left$oehlensystem."
  492. 15320 [142]
  493. 15400 [131],53,,,,,55,,,:[153]"left$oehlensystem."
  494. 15420 [142]
  495. 15500 [131]59,56,57,,,54,57,,,:[153]"left$oehlensystem."
  496. 15520 [142]
  497. 15600 [131]55,58,57,,59,53,,,,:[153]"left$oehlensystem."
  498. 15620 [142]
  499. 15700 [131]55,,,56,,55,,,,:[153]"left$oehlensystem."
  500. 15720 [142]
  501. 15800 [131]56,,,,57,,,,,:[153]"left$oehlensystem."
  502. 15820 [142]
  503. 15900 [131],,,55,,,,56,60,0:[153]"left$oehlensystem."
  504. 15920 [142]
  505. 16000 [131],,,,,,,,61,59:[153]"left$oehlensystem."
  506. 16020 [142]
  507. 16100 [131],,,,,,,,,60:[153]"atnm valnde des (NULL)eges.
  508. 16101 print"[214]or mir liegt ein tiefer, ca 10 [205]eter   breiter [193]bgrund der in ";
  509. 16102 print"[196]unkelheit ge-   huellt ist."
  510. 16103 print"[193]uf der anderen [211]eite des [193]bgrunds setztsich der [215]eg fort."
  511. 16104 print"[193]n der [198]elswand auf der anderen [211]eite   ist ein rot leuchtender";
  512. 16105 print" [196]ruckknopf ange-bracht."
  513. 16120 ifve=35andom=39thenprint"[205]eine [193]rme sind nicht 10 [205]eter lang !"
  514. 16130 ifbr<>1then16135
  515. 16131 print"[197]in lautes [210]attern ertoent !":sc=sc+10
  516. 16132 print"[197]ine [194]ruecke aus [211]tahl wird ueber den   [193]bgrund hinweg herrueber";
  517. 16133 print" geschoben.":br=2:oo(40)=61:oo(41)=63
  518. 16135 ifve=13andom=40thenri(1)=62:ri=1
  519. 16140 ifve<>8orgm<>6orom<>39then16150
  520. 16141 ifbr<>-1thenprint"[196]ie [208]istole faellt hinab.":ge(6)=0:goto16150
  521. 16142 print"[207]k.":print"[196]ie [208]istole trifft den [196]ruckknopf mit   voler [215]ucht !"
  522. 16143 ge(6)=63:br=1:goto16130
  523. 16150 return
  524. 16200 data63,61,,,,,,,,:print"[193]uf einer [211]tahlbruecke die ueber einen ";
  525. 16210 print" tiefen, dunklen [193]bgrund fuehrt."
  526. 16220 return
  527. 16300 data,,,64,0,0,0,0,0,0:print"[200]oehlenweg am [210]ande eines [193]bgrunds."
  528. 16320 ifve=13andom=41thenri(1)=62:ri=1
  529. 16325 ifve=35andom=42thenprint"[207]k.":print"[197]s passiert nichts."
  530. 16330 return
  531. 16400 data,,63,,,,,65,,:print"[200]oehlensystem."
  532. 16420 return
  533. 16500 data,,,,64,,,,66,:print"[198]euchte [199]rotte."
  534. 16501 print"[197]ine breite unregelmaessige [211]teintreppe fuehrt nach oben."
  535. 16520 return
  536. 16600 data,,,67,,,,,,65:print"[210]iessiger prunkvoller [212]empelraum."
  537. 16620 return
  538. 16700 data,69,66,68,,,,,,:print"[199]rosser runder [210]aum."
  539. 16720 ifve<>8orom<>43then16740
  540. 16725 ifg1<>18andge(g1)=-1thenprint"[207]k.":ge(g1)=0
  541. 16727 ifg1<>18then16740
  542. 16730 print"[197]ine synthetische [211]timme aus der [218]eit-  bombe spricht :":ge(18)=-9
  543. 16732 print"'[205]ission beendet. [196]etonation erfolgt in ";zb;"[218]eiteinheiten !'"
  544. 16733 sc=sc+10
  545. 16740 return
  546. 16800 data,,67,,,,,,,:print"[193]ltarraum."
  547. 16820 return
  548. 16900 data67,,,,,,,,,:print"[193]usserhalb des [212]empels."
  549. 16920 ifve=23andom=44thenprint"[196]ie [205]auer ist viel zu hoch und zu steil."
  550. 16925 ifve=13orve=26orve=48thenri(1)=75:ri=1:sc=sc+5
  551. 16930 return
  552. 17100 data,,,,,,,,,10:print"[200]och oben auf einem [193]ffenbrotbaum."
  553. 17110 ifpa(3)<>-1thenpa(3)=5
  554. 17120 return
  555. 17200 data39,45,,,,,,,,:print"[201]n einem [194]elueftungsschacht."
  556. 17220 return
  557. 17500 data,,,,,,,,,:print"[201]ch schwimme unter der [205]auer durch und  treibe nun";
  558. 17501 print" auf dem [198]luss......"
  559. 17520 poke198,0:wait198,1
  560. 17525 :print"[147][213]nd so endete das [193]benteuer des         [205]r [194]olings :"
  561. 17530 print"[205]it letzter [203]raft erreichte er den      [201]nselstrand, wo er ";
  562. 17532 print"von einem vorbeifah- renden [200]andelsschiff entdeckt und in ";
  563. 17533 print"   seine [200]eimat zurueckgebracht wurde."
  564. 17540 ifge(18)<>-9then17550
  565. 17545 print"[193]ls die [218]eitbombe explodierte versank   die gesamte [201]nsel spurlos";
  566. 17546 print" im [205]eer......"
  567. 17550 ifge(18)=-9then17560
  568. 17552 print"[215]as mit den [210]obotern geschah blieb      [194][201][211][200][197][210] unbekannt......
  569. 17560 [153]"(NULL)ie haben";sc;"% dieses atndventures geloest."
  570. 17564 [153]"def(NULL)it freundlichen chr$ruessen,
  571. 17565 print"              [205]ichael [206]ickles
  572. 17566 [151]198,0:[146]198,1:[138]
  573. 50000 [143] ****************************
  574. 50050 [139]ud[178]1[167]50220
  575. 50055 tt[178]0
  576. 50060 [129]i[178]1[164]10:be$(i)[178]"":[130]:[151]198,0:be$[178]""
  577. 50061 [153]"(NULL)as soll ich nun machen ?":[153]"print#to";
  578. 50080 [161]x$:tt[178]tt[170]1:[139]tt[177]1500[167][153]"on":[137]50140
  579. 50085 [139]x$[178]""[167]50080
  580. 50086 tt[178]0
  581. 50090 [139][194](203)[178]1[176][195](be$)[177]75[167][139]be$[179][177]""[167][153]"cmd.":[137]50140
  582. 50100 i[178][198](x$):[139]i[179]65[176]i[177]90[167][139]i[179][177]32[175]i[179][177]20[175]i[179][177]34[167]50080
  583. 50110 [139]i[178]20[175][195](be$)[178]0[167]50080
  584. 50120 [139]i[178]20[167][153]"cmdcmd  cmdcmdto";:be$[178][200](be$,[195](be$)[171]1):[137]50080
  585. 50130 be$[178]be$[170][199](i):i[178]i[170]128:[153]"cmd";[199](i);"to";:[137]50080
  586. 50140 be$[178]be$[170]" ":[129]i[178]1[164]10:be$(i)[178]"":[130]:wz[178]1:[129]i[178]1[164][195](be$)
  587. 50150 :[139][202](be$,i,1)[178]" "[167][141]50190:[137]50180
  588. 50160 :[139]wz[177]19[167][153]"valingabe ist zu lang !":i[178][195](be$)[170]1:[137]50180
  589. 50170 :be$(wz)[178]be$(wz)[170][202](be$,i,1)
  590. 50180 [130]i:[137]50220
  591. 50190 ic[178]0:[129]i1[178]1[164]az:[139]be$(wz)[178]au$(i1)[167]ic[178]1
  592. 50200 [130]i1:[139]ic[178]0[167]wz[178]wz[170]1:[142]
  593. 50210 be$(wz)[178]"":[142]
  594. 50220 [139]ud[178]1[167]ud[178]0:[137]50240
  595. 50230 wz[178]1:ve[178]0:ob[178]0:om[178]0:pe[178]0
  596. 50240 ic[178]0:g1[178]0:g2[178]0:gm[178]0
  597. 50241 b$[178]be$(wz):[139]b$[178]""[167][142]
  598. 50242 [139]b$[178]"supermike"[167][153]"0937210682":ic[178]1:[137]50370
  599. 50245 [129]i[178]1[164]10:[139]b$[178]ri$(i)[167]ri[178]i
  600. 50246 [130]i:[139]ri[179][177]0[167][142]
  601. 50260 [129]i[178]1[164]vz:[139]b$[178][200](ve$(i),[195](b$))[167]ve[178]i[171][197]([201](ve$(i),1)):ic[178]1
  602. 50261 [130]i:[139]ic[167]50370
  603. 50270 [129]i[178]1[164]gz
  604. 50275 [139][202](b$,2,[195](b$)[171]1)[179][177][202](ge$(i),2,[195](ge$(i))[171]1)[167]50300
  605. 50280 ic[178]1:[139]g1[178]0[167]g1[178]i:[139]ge(g1)[178][171]1[167]gm[178]i
  606. 50290 g2[178]i:[139]g2[178]g1[167]g2[178]0
  607. 50300 [130]i:[139]ic[167]50370
  608. 50310 [129]i[178]1[164]oz:[139]b$[178]ob$(i)[167]ob[178]i:ic[178]1:[139]oo(i)[178]zn[167]om[178]i
  609. 50320 [130]i:[139]ic[167]50370
  610. 50329 [143]     iflen(b$)<3then50350
  611. 50330 [129]i[178]1[164]pz
  612. 50331 [139][202](b$,2,[195](b$)[171]1)[178][202](pe$(i),2,[195](pe$(i))[171]1)[167]pe[178]i:ic[178]1
  613. 50332 [139]pe[178]i[175]pe(i)[178]zn[167]pm[178]pe:ic[178]2
  614. 50340 [130]i:[139]ic[167]50370
  615. 50350 [139]b$[178]"und"[167]ud[178]1:ic[178]1
  616. 50360 [139]ic[178]0[175]ri[178]0[167][153]"right$ch kenne ";b$;" nicht !":[137]50000
  617. 50370 wz[178]wz[170]1:[139]wz[177]10[176]be$(wz)[178]""[176]ud[178]1[167][142]
  618. 50380 ic[178]0:[137]50241
  619. 51000 [143] allgemeine tabellen ----------
  620. 51005 [140]51000
  621. 51010 [131]n,s,w,o,nw,no,sw,so,rauf,runter:[129]i[178]1[164]10:[135]ri$(i):[130]
  622. 51100 tu(1)[178]1:[143] schrank
  623. 51105 tu(2)[178]1:[143] haustuer
  624. 51110 tu(3)[178]1:[143] truhe
  625. 51115 tu(4)[178]2:[143] schrank
  626. 51116 tu(5)[178]1:[143] schleusse
  627. 51120 mu[178]4
  628. 51130 [134] be$(20)
  629. 51200 :
  630. 51210 [131]51,51,51,40,41,42,44,45,48,48,48,45,44,42,41,40,-1
  631. 51220 [134]ma(17):[129]i[178]1[164]17:[135]ma(i):[130]:ma[178]1:[143] robot aktiv
  632. 52000 [143] w o r t s c h a t z ----------
  633. 52005 [140]52000
  634. 52010 [131]oeffne,schliesse,schaue,untersuche1,nimm,nehme1,hole2,verliere,lege1
  635. 52011 [131]wirf2,werfe3,inventur,gehe
  636. 52012 [131]betrete1,verlasse,gib,gebe1,zeige2,warte,toete,erlege1,schiesse2
  637. 52013 [131]klettere,faelle,baue,schwimme,ueberquere,lies,lese1,hilfe
  638. 52014 [131]befestige,binde1,verknote2,nahoc,druecke,betaetige1
  639. 52015 [131]breche,brich1,zerschlage2,zerstoere3,vernichte4
  640. 52016 [131]verbinde,kurz1,stecke,ziehe,schiebe1,setze,springe,esse
  641. 52040 vz[178]49:[134]ve$(vz):[129]i[178]1[164]vz:[135]ve$(i):[130]
  642. 52100 [131]der,die,das,den,in,auf,nach,vom,zum,dem,aufs,sie,mit,ueber,hoch,weg
  643. 52105 [131]ein,am,an,dich
  644. 52120 az[178]20:[134]au$(az):[129]i[178]1[164]az:[135]au$(i):[130]
  645. 52200 [143] die objekte --------------
  646. 52210 [131] schrank,"atnlter (NULL)chrank aus valichenholz",1
  647. 52212 [131] haustuer,"left$austuer",1
  648. 52214 [131] schiff,"(NULL)chiff",3
  649. 52216 [131] truhe,"chr$rosse (NULL)eemannstruhe",0
  650. 52217 [131] tuer,"left$austuer",2
  651. 52218 [131]baum,"left$oher atnffenbrotbaum",10
  652. 52219 [131]mauer,"(NULL)ehr hohe, breite (NULL)auer aus ascelsbrocken",8
  653. 52220 [131]fluss,"peekreiter reissender ascluss",11
  654. 52221 [131]krokodil,"(NULL)iele (NULL)rokodile lauern im ascluss",11
  655. 52222 [131]kamin,"(NULL)amin",1
  656. 52223 [131]baum,"str$uenne left$olzbaume",12
  657. 52224 [131]fluss,"peekreiter reissender ascluss",14
  658. 52225 [131]hoehle,"valingang zu einer left$oehle",25
  659. 52226 [131]hoehlenwand,"left$oehlenwand",22
  660. 52227 [131]stein,"(NULL)pitzer (NULL)reidestein",0
  661. 52228 [131]schrift,"(NULL)chwer lesbare (NULL)chrift",0
  662. 52229 [131]skelett,"right$n einer valcke liegt ein menschliches (NULL)kelett",22
  663. 52230 [131]eisenring,"atnm peekoden ist ein valisenring befestigt",27
  664. 52231 [131]spalt,"lena 1 (NULL)eter breiter (NULL)palt in der chr$ebirgswand",31
  665. 52232 [131]tropfsteine,"(NULL)on der str$ecke haengen chr$ebilde aus (NULL)ropfsteinen",35
  666. 52233 [131]stahltuer,"(NULL)tahltuer",36
  667. 52234 [131]aufzug,"str$ie (NULL)tahltuer gibt den (NULL)ugang zu einem atnufzug frei",0
  668. 52235 [131]taste,"(NULL)ote (NULL)aste",37
  669. 52236 [131]schaltkasten,"atnn der (NULL)and haengt ein (NULL)chaltkasten",37
  670. 52237 [131]kabel,"right$m (NULL)chaltkasten sind zwei rote (NULL)abel mit blanken valnden",0
  671. 52238 [131]steckdose,"right$n der (NULL)and ist eine (NULL)teckdose",41
  672. 52239 [131]schacht,"right$n der (NULL)and ist ein peekelueftungsschacht",39
  673. 52240 [131]schleusse,"(NULL)chleusse aus (NULL)tahl",51
  674. 52241 [131]schrank,"(NULL)chrank aus (NULL)tahl",43
  675. 52242 [131]schacht,"right$n der (NULL)and ist ein peekelueftungschacht",45
  676. 52244 [131]treppe,"(NULL)endeltreppe die nach unten fuehrt",48
  677. 52245 [131]treppe,"(NULL)endeltreppe die nach oben fuehrt",47
  678. 52246 [131]stahltuer,"(NULL)erschlossene (NULL)tahltuer",38
  679. 52247 [131]kampfroboter,"(NULL)iessiges regungsloses (NULL)ampfroboterheer",47
  680. 52248 [131]drahtgitter,"(NULL)or dem (NULL)chacht ist ein str$rahtgitter",39
  681. 52249 [131]schalthebel,"(NULL)eben der (NULL)chleusse ist ein roter (NULL)chalthebel",51
  682. 52250 [131]toten,"atnm peekoden liegt ein (NULL)oter - halb (NULL)ensch halb (NULL)oboter",51
  683. 52252 [131]sessel,"right$n der (NULL)itte des (NULL)aums steht ein antiker (NULL)essel",50
  684. 52253 [131]druckknopf,"(NULL)euchtender str$ruckknopf",61
  685. 52254 [131]bruecke,"peekruecke aus (NULL)tahl",0
  686. 52255 [131]bruecke,"peekruecke aus (NULL)tahl",0
  687. 52256 [131]druckknopf,"(NULL)euchtender str$ruckknopf in der ascelswand",63
  688. 52257 [131]brunnen,"right$n der (NULL)itte des (NULL)aums ist eine atnrt von peekrunnen",67
  689. 52258 [131]mauer,"(NULL)ehr hohe, breite (NULL)auer aus ascelsbrocken",69
  690. 52259 [131]fluss,"peekreiter ascluss, der unter der (NULL)auer durchfliesst",69
  691. 52260 oz[178]45:[134]ob$(oz):[134]o$(oz):[134]oo(oz)
  692. 52262 [129]i[178]1[164]oz:[135]ob$(i):[135]o$(i):[135]oo(i):[130]
  693. 52300 [131] "(NULL)eekarte",0,"(NULL)uscheln",5
  694. 52302 [131]"(NULL)aebel",-3,"(NULL)chiffszwieback",-3,"(NULL)eil",-3,"(NULL)istole",-3
  695. 52303 [131]"(NULL)unition",-3,"asclasche",-2,"peekuch",0,"atnxt",-3,"left$olz",0
  696. 52305 [131]"ascloss",0,"peeklechdeckel",0,"str$raht",0,"(NULL)tromkabel",46
  697. 52306 [131]"(NULL)chutzanzug",-4,"(NULL)chluessel",0,"(NULL)eitbombe",0
  698. 52330 gz[178]18:[134]ge$(gz):[134]ge(gz):[129]i[178]1[164]gz:[135]ge$(i):[135]ge(i):[130]
  699. 52400 [131]"(NULL)avigator",4,"(NULL)aepten chr$raubard",4,"(NULL)oewe",0,"(NULL)erbrannter (NULL)oboter",0
  700. 52410 pz[178]4:[134]pe$(pz):[134]pe(pz):[129]i[178]1[164]pz:[135]pe$(i):[135]pe(i):[130]
  701. 53000 [142]
  702. 60000 [143] mp
  703. 60004 [129]i[178]49152[164]49206:[135]a:[151]i,a:[130]:[158]49152:[158]49191:sp[178]49152
  704. 60010 [131]160,0,177,122,201,44,240,1,96,32,115,0,32,49,192,165,20,32,23,192
  705. 60020 [131]76,0,192,41,63,141,1,221,9,64,141,1,221,173,1,221,48,251,96,169,127
  706. 60025 [131]141,3,221,169,0,76,23,192,32,138,173,76,247,183
  707. 60045 [142]:[143]sys49152,6,3,26,0,16,4,4,39,7,21,2,19,4
  708. 61000 [143] speakeasy-saetze
  709. 61010 [143]syssp,19,37,4,57,23,3,63,7,4,23,44,41,55,13:return
  710. 61020 [143]syssp,33,7,44,41,4,33,30,8,4,16,26,62,4,11,59,8,3,3,4:return
  711. 61030 [143]syssp,27,26,62,45,53,4,4,4,19,37,4,27,6,55,55,7,4,4,16,19,55,17,52,4
  712. 61031 [143]syssp,63,31,45,19,11,4:return
  713.